* DO UNITL;

data dountil;
  do until(Capital>1000000);
     Year+1;
     Capital+5000;
     Capital+(Capital*.045);
  end;
run;

proc print data=dountil noobs;
  format Capital dollar14.2;
run;

* DO WHILE;

data dowhile;
   do Year=1 to 30 while(Capital<=250000);
    Capital+5000;
     Capital+(Capital*.045);
   end;
run;

proc print data=dowhile noobs;
   format Capital dollar14.2;
run;